Option Explicit
'ۭqҲ
Dim myOpt() As myOptClass
Private Sub UserForm_Initialize()
    Dim i As Long
    ReDim myOpt(1 To 5)
    For i = 1 To 5
        Set myOpt(i) = New myOptClass
        Set myOpt(i).Opt = Me.Controls("OptionButton" & CStr(i))
        Set myOpt(i).Tb = TextBox6
    Next
End Sub

'OҲmyOptClass
Private WithEvents myOpt As MSForms.OptionButton
Private myRtnTb As MSForms.TextBox
Public Property Set Opt(setOpt As MSForms.OptionButton)
    Set myOpt = setOpt
End Property

Public Property Get Opt() As MSForms.OptionButton
End Property

Public Property Set Tb(setTb As MSForms.TextBox)
    Set myRtnTb = setTb
End Property

Public Property Get Tb() As MSForms.TextBox
End Property

Private Sub myOpt_Click()
    myRtnTb.Value = myOpt.Name
End Sub
